home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 April / CMCD0404.ISO / Software / Shareware / Multimedia / extrememov / extrememm2.6b3sharefull.exe / {app} / scripts / [TODOCINE.COM] - (Full Import - Cover - Photos)@Ñ 15_05_2002.txt < prev    next >
Encoding:
Text File  |  2002-10-25  |  14.6 KB  |  458 lines
  1. -----------------------------------------------
  2. -            eXtreme Movie Manager            -
  3. -            MagicScript Technology           -
  4. -          2002 Alessio "AleTsg" Viti         -
  5. -----------------------------------------------
  6. - Web      : TODOCINE.COM                     -
  7. - Author    : ╤                               -
  8. - Date     : 15/05/2002                       -
  9. - Comments : Import all available data        -
  10. -----------------------------------------------
  11. - Version  : 0.5                              -
  12. - Changes  :                                  -
  13. -  0.1     : 04/12/2002                       -
  14. -            Initial version                  -
  15. -            Data:                            -
  16. -             Movie list                      -
  17. -             Movie title                     -
  18. -             Director                        -
  19. -             Actors list                     -
  20. -             Genere                          -
  21. -             Runtime                         -
  22. -             Year                            -
  23. -             Country                         -
  24. -             Tagline                         -
  25. -                                             -
  26. -  0.2     : 04/17/2002                       -
  27. -            Optimization                     -
  28. -            New substitute tags              -
  29. -            Photos from the film             -
  30. -            Bugfix                           -
  31. -             Wrong format in some taglines   -
  32. -             Actors list fixed               -
  33. - 0.3      : 22/04/2002                       -
  34. -            Bugfix                           -
  35. -             Actors list without errors      -
  36. -             Tagline changed for Plot (sorry)-
  37. -                                             -
  38. - 0.4      : 23/04/2002                       -
  39. -            Bugfix                           -
  40. -             Error with linked director      -
  41. -                                             -
  42. - 0.5      : 05/05/2002                       -
  43. -            Optimization                    -
  44. -                                             -
  45. -----------------------------------------------
  46. - Cambios:                                    -
  47. - 0.1      : 12/04/2002                       -
  48. -            Versi≤n inicial                  -
  49. -            Datos:                           -
  50. -             Lista de pelφculas              -
  51. -             Tφtulo                          -
  52. -             Director                        -
  53. -             Lista de actores                -
  54. -             GΘnero                          -
  55. -             Duraci≤n                        -
  56. -             A±o                             -
  57. -             Paφs                            -
  58. -             Argumento                       -
  59. -                                             -
  60. - 0.2      : 17/04/2002                       -
  61. -            Optimizado                       -
  62. -            Nueva sustituci≤n de tags        -
  63. -            Images de la pelφcula            -
  64. -            Bugfix                           -
  65. -             Error en formato de argumentos  -
  66. -             Lista de actores arreglada      -
  67. - 0.3      : 22/04/2002                       -
  68. -            Bugfix                           -
  69. -             Lista de actores sin errores    -
  70. -             Tagline cambiado por Plot       -
  71. -                                             -
  72. - 0.4      : 23/04/2002                       -
  73. -            Bugfix                           -
  74. -             Error en directores con enlace  -
  75. - 0.5      : 05/05/2002                       -
  76. -            Optimizaci≤n                     -
  77. -                                             -
  78. -----------------------------------------------
  79. - EMail    : roblop2001@hotmail.com           -
  80. -----------------------------------------------
  81.  
  82. #MADEBY#=╤
  83. #DATEBUILD#=15/05/2002
  84. #WEBSITE#=TODOCINE.COM
  85. #NOTE#=Import All Information Available : Movie list,Movie 
  86. title,Director,Actors list,Genere,Runtime,Year,Country,Plot,Cover,Photos
  87. #SCRIPTQUALITY#=3
  88.  
  89. #WEBQUERY#=http://www.todocine.com/cgi-bin/busqueda.cgi?Range=All&Format=Standard&Terms=#MOVIE#
  90.  
  91. - Nunca encontraremos una pßgina correcta     -
  92. - Siempre ofrece lista de pelφculas           -
  93. #RIGHTPAGEFOUND#
  94.     #STARTREADWEB#
  95.     #FINDLINE#=<TITLE>#10# #ONERROR#=*STOP*
  96.     #FIND#=>#01# #ONERROR#=*STOP*
  97.     #FIND#=<#02# #ONERROR#=*STOP*
  98.     #TAKEWORD#=#03#,#01#,#02#
  99.     #PUT#=TodoCine: resultados de la busqueda#04#
  100.     #CONDITIONRIGHTPAGE# #03#<>#04#
  101. #ENDRIGHTPAGEFOUND#
  102.  
  103. #CREATEMOVIELIST#
  104.     - Comprueba si la busqueda ha dado resultados
  105.     #STARTREADWEB#
  106.     #WRITETITLELIST#=Resultados de la busqueda
  107.     #WRITETITLELIST#=-------------------------------
  108.     #FINDLINE#=Documentos encontrados: 0#10# #ONERROR#=*OK*
  109.     #PUT#=1#01#
  110.     #IF# #01#==#10#
  111.         #WRITETITLELIST#=No hay coincidencias
  112.         #GOTO#=ENDLISTAPELICULAS
  113.     #ENDIF#
  114.     #STARTREADWEB#
  115.     #FINDLINE#=<BLOCKQUOTE>#10# #ONERROR#=*OK*
  116.     #PUT#=0#01#
  117.     #IF# #01#==#10#
  118.         #WRITETITLELIST#=Pßgina no vßlida
  119.         #GOTO#=ENDLISTAPELICULAS
  120.     #ENDIF#
  121.     - La busqueda di≤ resultados
  122.     #READNEXTLINE#
  123.     #REPEAT#
  124.         - Busca referencia
  125.         - Busca inicio de la referencia
  126.         #FIND#="http://www.todocine.com/mov/#02# #ONERROR#=*STOP*
  127.         #IF# #01#==#02#
  128.             #GOTO#=ENDLISTAPELICULAS
  129.         #ENDIF#
  130.         - Busca final de la referencia
  131.         #FIND#=">#03# #ONERROR#=*STOP*
  132.         - Coge referencia
  133.         #TAKEWORD#=#05#,#02#,#03#
  134.         - Busca tφtulo
  135.         - Busca inicio del tφtulo
  136.         #FIND#=<B>#03# #ONERROR#=*STOP*
  137.         #FIND#=>#03# #ONERROR#=*STOP*
  138.         - Busca fin del tφtulo
  139.         #FIND#=<#04# #ONERROR#=*STOP*
  140.         - Coge tφtulo
  141.         #TAKEWORD#=#06#,#03#,#04#
  142.         - A±ade tφtulo y enlace
  143.         #WRITETITLELIST#=#05#    ---> #06#
  144.         #FIND#=Documentos #07# #ONERROR#=*STOP*
  145.     #WHILE# #01#==#07#
  146.     :ENDLISTAPELICULAS
  147. #ENDCREATEMOVIELIST#
  148.  
  149. #MOVIETITLE#
  150.     #STARTREADWEB#
  151.     #FINDLINE#=tulo original:#10##ONERROR#=*STOP*
  152.     #FIND#=<B>#01 #ONERROR#=*STOP*
  153.     #FIND#=>#01# #ONERROR#=*STOP*
  154.     #FIND#=<#02# #ONERROR#=*STOP*
  155.     #TAKEWORD#=#03#,#01#,#02#
  156.     #CHECKVARIABLE#=#03#
  157.     #STARTSUBSTITUTETAGS#
  158.     #TITLE#=#03# #ONERROR#=*ASK*
  159. #ENDMOVIETITLE#
  160.  
  161. #DIRECTOR#
  162.     #STARTREADWEB#
  163.     #FINDLINE#=<B>Direcci#10# #ONERROR#=*STOP*
  164.     #FIND#=<FONT#01# #ONERROR#=*STOP*
  165.     #FIND#=<A#01# #ONERROR#=*OK*
  166.     #FIND#=>#01# #ONERROR#=*STOP*
  167.     #FIND#=<#02# #ONERROR#=*STOP*
  168.     #TAKEWORD#=#03#,#01#,#02#
  169.     #CHECKVARIABLE#=#03#
  170.     #STARTSUBSTITUTETAGS#
  171.     #ADDACTOR#=#03#
  172.     #TAKEDIRECTOR#=#03#
  173. #ENDDIRECTOR#
  174.  
  175. #ACTORS#
  176.     #STARTREADWEB#
  177.     #FINDLINE#=Reparto:#10##ONERROR#=*STOP*
  178.     #PUT#=0#04#
  179.     - Comprueba el tipo de lista de actores
  180.     - S≤lo Actores o Actores - Personajes
  181.     #FIND#=<TABLE#02# #ONERROR#=*STOP*
  182.     #IF# #02#<>#04#
  183.         #GOTO#=ACTORSMODE2
  184.     #ENDIF#
  185. :ACTORSMODE1
  186.     - S≤lo Actores
  187.     #FIND#=<FONT#01# #ONERROR#=*STOP*
  188.     #FIND#=>#01# #ONERROR#=*STOP*
  189.     #REPEAT#
  190.         - Comprobar si el actor lleva TAG
  191.         #FIND#=<A#02# #ONERROR#=*STOP*
  192.         #IF# #02#<>#04#
  193.             #FIND#=htm">#01# #ONERROR#=*STOP*
  194.             #FIND#=>#01# #ONERROR#=*STOP*
  195.         #ENDIF#
  196.         #FIND#=<#02# #ONERROR#=*STOP*
  197.         #TAKEWORD#=#03#,#01#,#02#
  198.         #CHECKVARIABLE#=#03#
  199.         #STARTDELETETAGS#
  200.         #CHECKVARIABLE#=#03#
  201.         #STARTSUBSTITUTETAGS#
  202.         #ADDACTOR#=#03#
  203.         #TAKEACTOR#=#03#
  204.         #READNEXTLINE#
  205.         #PUT#=0#01#
  206.         #FIND#=</TD></TR>#02# #ONERROR#=*OK*
  207.     #WHILE# #04#==#02#
  208.     #GOTO#=ENDACTORS
  209. :ACTORSMODE2
  210.     - Lista Actores - Personajes
  211.     #REPEAT#
  212.         #FIND#=</I>#02# #ONERROR#=*STOP*
  213.         #FIND#=</TABLE>#02# #ONERROR#=*STOP*
  214.         #FIND#=<FONT#01# #ONERROR#=*STOP*
  215.         #FIND#=>#01# #ONERROR#=*STOP*
  216.         - Comprobar si el actor lleva TAG
  217.         #FIND#=<A#02# #ONERROR#=*STOP*
  218.         #IF# #02#<>#04#
  219.             #FIND#=htm">#01# #ONERROR#=*STOP*
  220.             #FIND#=>#01# #ONERROR#=*STOP*
  221.         #ENDIF#
  222.         #FIND#=<#02# #ONERROR#=*STOP*
  223.         #TAKEWORD#=#03#,#01#,#02#
  224.         #CHECKVARIABLE#=#03#
  225.         #STARTDELETETAGS#
  226.         #CHECKVARIABLE#=#03#
  227.         #STARTSUBSTITUTETAGS#
  228.         #ADDACTOR#=#03#
  229.         #TAKEACTOR#=#03#
  230.     #READNEXTLINE#
  231.         #FIND#=</TABLE>#02# #ONERROR#=*OK*
  232.     #WHILE# #04#==#02#
  233. :ENDACTORS
  234. #ENDACTORS#
  235.  
  236. #GENRE#
  237.     #STARTREADWEB#
  238.     #FINDLINE#=nero:#10##ONERROR#=*STOP*
  239.     #FIND#=<B>#01# #ONERROR#=*STOP*
  240.     #FIND#=>#01# #ONERROR#=*STOP*
  241.     #FIND#=<#02# #ONERROR#=*STOP*
  242.     #TAKEWORD#=#03#,#01#,#02#
  243.     #CHECKVARIABLE#=#03#
  244.     #STARTSUBSTITUTETAGS#
  245.     #TAKEGENRE#=#03#
  246. #ENDGENRE#
  247.  
  248. #RUNTIME#
  249.     #STARTREADWEB#
  250.     #FINDLINE#=Duraci#10##ONERROR#=*STOP*
  251.     #FIND#=<B>#01# #ONERROR#=*STOP*
  252.     #FIND#=>#01# #ONERROR#=*STOP*
  253.     #COMPUTECURSOR#=+1
  254.     #PUTCURSOR#=#01#
  255.     #FIND#=<#02# #ONERROR#=*STOP*
  256.     #TAKEWORD#=#03#,#01#,#02#
  257.     #CHECKVARIABLE#=#03#
  258.     #STARTSUBSTITUTETAGS#
  259.     #TAKERUNTIME#=#03#
  260. #ENDRUNTIME#
  261.  
  262. #COUNTRY#
  263.     #STARTREADWEB#
  264.     #FINDLINE#=Nacionalidad:#10##ONERROR#=*STOP*
  265.     #FIND#=<B>#01# #ONERROR#=*STOP*
  266.     #FIND#=>#01# #ONERROR#=*STOP*
  267.     #FIND#=<#02# #ONERROR#=*STOP*
  268.     #TAKEWORD#=#03#,#01#,#02#
  269.     #CHECKVARIABLE#=#03#
  270.     #STARTSUBSTITUTETAGS#
  271.     #TAKECOUNTRY#=#03#
  272. #ENDCOUNTRY#
  273.  
  274. #YEAR#
  275.     #STARTREADWEB#
  276.     #FINDLINE#=o:</B>#10##ONERROR#=*STOP*
  277.     #FIND#=<B>#01# #ONERROR#=*STOP*
  278.     #FIND#=>#01# #ONERROR#=*STOP*
  279.     #COMPUTECURSOR#=+1
  280.     #PUTCURSOR#=#01#
  281.     #FIND#=<#02# #ONERROR#=*STOP*
  282.     #TAKEWORD#=#03#,#01#,#02#
  283.     #CHECKVARIABLE#=#03#
  284.     #STARTSUBSTITUTETAGS#
  285.     #TAKEYEAR#=#03#
  286. #ENDYEAR#
  287.  
  288. #PLOT#
  289.     #STARTREADWEB#
  290.     #FINDLINE#=psis:#10##ONERROR#=*STOP*
  291.     #REPEAT#
  292.         #FIND#=<P align=justify>#01# #ONERROR#=*STOP*
  293.         #FIND#=>#01# #ONERROR#=*STOP*
  294.         #FIND#=<#01# #ONERROR#=*STOP*
  295.         #FIND#=>#01# #ONERROR#=*STOP*
  296.         #COMPUTECURSOR#=+1
  297.         #PUTCURSOR#=#04#
  298.         #FIND#=<#02# #ONERROR#=*STOP*
  299.         #IF# #02#==#04#
  300.             #GOTO#=ENDREPEATTAGLINE
  301.         #ENDIF#
  302.         #TAKEWORD#=#03#,#01#,#02#
  303.         #CHECKVARIABLE#=#03#
  304.         #STARTDELETETAGS#
  305.         #CHECKVARIABLE#=#03#
  306.         #STARTSUBSTITUTETAGS#
  307.         #TAKEPLOT#=#03#
  308.     #WHILE# #01#==#01#
  309. :ENDREPEATTAGLINE
  310. #ENDPLOT#
  311.  
  312. #POSTER#
  313.     #STARTREADWEB#
  314.     #FINDLINE#=movgal#10# #ONERROR#=*STOP*
  315.     #FIND#=movgal/#01# #ONERROR#=*STOP*
  316.     #COMPUTECURSOR#=+6
  317.     #PUTCURSOR#=#01#
  318.     #FIND#=">#02# #ONERROR#=*STOP*
  319.     #TAKEWORD#=#03#,#01#,#02#
  320.     #STRING#=#04#=http://todocine.com/movgal/#03#
  321.     #PUT#=0#05#
  322.     #OPENNEWWEB#=#04#
  323.         #REPEAT#
  324.             #FINDLINE#=../img#10# #ONERROR#=*OK*
  325.             #IF# #05#<>#10#
  326.                 #FIND#=ALT="img#01# #ONERROR#=*STOP*
  327.                 #COMPUTECURSOR#=+7
  328.                 #PUTCURSOR#=#01#
  329.                 #FIND#="#02# #ONERROR#=*STOP*
  330.                 #TAKEWORD#=#03#,#01#,#02#
  331.                 #STRING#=#04#=http://todocine.com/img#03#
  332.                 #TAKEPOSTER#=#04#
  333.             #ENDIF#
  334.         #WHILE# #05#<>#10#
  335.     #RESTOREWEB#
  336. #ENDPOSTER#
  337.  
  338. #DELETETAGS#
  339.     #DELETEWORD#= 
  340.     #DELETEWORD#=<BR>
  341.     #DELETEWORD#=</BR>
  342.     #DELETEWORD#=</P>
  343.     #DELETEWORD#=</BLOCKQUOTE>
  344.     #DELETEWORD#=</TD>
  345.     #DELETEWORD#=</TR>
  346.     #DELETEWORD#=</TABLE>
  347.     #DELETEWORD#=</A>
  348.     #DELETEWORD#=<P ALIGN="justify">
  349. #ENDDELETETAGS#
  350.  
  351. #SUBSTITUTETAGS#
  352.     #SUBSTITUTEWORD#= =
  353.     #SUBSTITUTEWORD#=¡=í
  354.     #SUBSTITUTEWORD#=¢=ó
  355.     #SUBSTITUTEWORD#=£=ú
  356.     #SUBSTITUTEWORD#=¤=ñ
  357.     #SUBSTITUTEWORD#=¥=Ñ
  358.     #SUBSTITUTEWORD#=¦=ª
  359.     #SUBSTITUTEWORD#=§=º
  360.     #SUBSTITUTEWORD#=¨=¿
  361.     #SUBSTITUTEWORD#=©=⌐
  362.     #SUBSTITUTEWORD#=ª=¬
  363.     #SUBSTITUTEWORD#=«=½
  364.     #SUBSTITUTEWORD#=¬=¼
  365.     #SUBSTITUTEWORD#=­=¡
  366.     #SUBSTITUTEWORD#=®=«
  367.     #SUBSTITUTEWORD#=¯=»
  368.     #SUBSTITUTEWORD#=°=░
  369.     #SUBSTITUTEWORD#=±=▒
  370.     #SUBSTITUTEWORD#=²=▓
  371.     #SUBSTITUTEWORD#=³=│
  372.     #SUBSTITUTEWORD#=´=┤
  373.     #SUBSTITUTEWORD#=µ=╡
  374.     #SUBSTITUTEWORD#=¶=╢
  375.     #SUBSTITUTEWORD#=·=╖
  376.     #SUBSTITUTEWORD#=¸=╕
  377.     #SUBSTITUTEWORD#=¹=╣
  378.     #SUBSTITUTEWORD#=º=║
  379.     #SUBSTITUTEWORD#=»=╗
  380.     #SUBSTITUTEWORD#=¼=╝
  381.     #SUBSTITUTEWORD#=½=╜
  382.     #SUBSTITUTEWORD#=¾=╛
  383.     #SUBSTITUTEWORD#=¿=┐
  384.     #SUBSTITUTEWORD#=À=└
  385.     #SUBSTITUTEWORD#=Á=┴
  386.     #SUBSTITUTEWORD#=Â=┬
  387.     #SUBSTITUTEWORD#=Ã=├
  388.     #SUBSTITUTEWORD#=Ä=─
  389.     #SUBSTITUTEWORD#=Å=┼
  390.     #SUBSTITUTEWORD#=Æ=╞
  391.     #SUBSTITUTEWORD#=Ç=╟
  392.     #SUBSTITUTEWORD#=È=╚
  393.     #SUBSTITUTEWORD#=É=╔
  394.     #SUBSTITUTEWORD#=Ê=╩
  395.     #SUBSTITUTEWORD#=Ë=╦
  396.     #SUBSTITUTEWORD#=Ì=╠
  397.     #SUBSTITUTEWORD#=Í=═
  398.     #SUBSTITUTEWORD#=Î=╬
  399.     #SUBSTITUTEWORD#=Ï=╧
  400.     #SUBSTITUTEWORD#=Ð=╨
  401.     #SUBSTITUTEWORD#=Ñ=╤
  402.     #SUBSTITUTEWORD#=Ò=╥
  403.     #SUBSTITUTEWORD#=Ó=╙
  404.     #SUBSTITUTEWORD#=Ô=╘
  405.     #SUBSTITUTEWORD#=Õ=╒
  406.     #SUBSTITUTEWORD#=Ö=╓
  407.     #SUBSTITUTEWORD#=×=╫
  408.     #SUBSTITUTEWORD#=Ø=╪
  409.     #SUBSTITUTEWORD#=Ù=┘
  410.     #SUBSTITUTEWORD#=Ú=┌
  411.     #SUBSTITUTEWORD#=Û=█
  412.     #SUBSTITUTEWORD#=Ü=▄
  413.     #SUBSTITUTEWORD#=Ý=▌
  414.     #SUBSTITUTEWORD#=Þ=▐
  415.     #SUBSTITUTEWORD#=ß=▀
  416.     #SUBSTITUTEWORD#=à=α
  417.     #SUBSTITUTEWORD#=á=ß
  418.     #SUBSTITUTEWORD#=â=Γ
  419.     #SUBSTITUTEWORD#=ã=π
  420.     #SUBSTITUTEWORD#=ä=Σ
  421.     #SUBSTITUTEWORD#=å=σ
  422.     #SUBSTITUTEWORD#=æ=µ
  423.     #SUBSTITUTEWORD#=ç=τ
  424.     #SUBSTITUTEWORD#=è=Φ
  425.     #SUBSTITUTEWORD#=é=Θ
  426.     #SUBSTITUTEWORD#=ê=Ω
  427.     #SUBSTITUTEWORD#=ë=δ
  428.     #SUBSTITUTEWORD#=ì=∞
  429.     #SUBSTITUTEWORD#=í=φ
  430.     #SUBSTITUTEWORD#=î=ε
  431.     #SUBSTITUTEWORD#=ï=∩
  432.     #SUBSTITUTEWORD#=ð=≡
  433.     #SUBSTITUTEWORD#=ñ=±
  434.     #SUBSTITUTEWORD#=ò=≥
  435.     #SUBSTITUTEWORD#=ó=≤
  436.     #SUBSTITUTEWORD#=ô=⌠
  437.     #SUBSTITUTEWORD#=õ=⌡
  438.     #SUBSTITUTEWORD#=ö=÷
  439.     #SUBSTITUTEWORD#=÷=≈
  440.     #SUBSTITUTEWORD#=ø=°
  441.     #SUBSTITUTEWORD#=ù=∙
  442.     #SUBSTITUTEWORD#=ú=·
  443.     #SUBSTITUTEWORD#=û=√
  444.     #SUBSTITUTEWORD#=ü=ⁿ
  445.     #SUBSTITUTEWORD#=ý=²
  446.     #SUBSTITUTEWORD#=þ=■
  447.     #SUBSTITUTEWORD#=ÿ= 
  448.     #SUBSTITUTEWORD#=á=ß
  449.     #SUBSTITUTEWORD#=é=Θ
  450.     #SUBSTITUTEWORD#=í=φ
  451.     #SUBSTITUTEWORD#=ó=≤
  452.     #SUBSTITUTEWORD#=ú=·
  453.     #SUBSTITUTEWORD#=ñ=±
  454.     #SUBSTITUTEWORD#=ü=ⁿ
  455. #ENDSUBSTITUTETAGS#
  456.  
  457.  
  458.